0 IFPEEK(50257)<>20THENPOKE50257,16 10 GOTO30 20 GOTO55013 30 PRINT"[147]":IFPEEK(38912)<>173THENSYS23552 100 CLR:POKE45,202:POKE46,85:CLR:POKE56,92 105 POKE53272,21:POKE53265,155 110 POKE53280,15:POKE53281,15:PRINTCHR$(142);CHR$(8):SYS40148:CLR:RESTORE 112 POKE56578,PEEK(56578)OR3:POKE56576,(PEEK(56576)AND252)OR3 115 PRINT"[147]":FORX=0TO24:POKE54272+X,0:NEXTX 120 PRINT"[147][156] "; 130 PRINT" S O U N D C O N T R O L 2 "; 135 PRINT" PROGRAMMPAKET "; 140 PRINT" " 150 PRINT"[149][146]VON HOLGER GEHRMANN - DEUTSCHLAND, 1984" 160 PRINT"BITTE FUNKTION WAEHLEN:" 170 PRINT"  1 [146] HAUPTDEMO (FUNKTIONENDEMO)" 180 PRINT"  2 [146] SOUND-DEMO 1 : BONNIE & CLYDE" 190 PRINT"  3 [146] SOUND-DEMO 2 : MENUETT (J.S.BACH)" 200 PRINT"  4 [146] TONWELLE ALS GRAFIK DARSTELLEN" 210 PRINT"  5 [146] SOUNDCONTROL 2-ANLEITUNG" 220 PRINT"  6 [146] ZUM SELBST AUSPROBIEREN: ORGEL" 230 PRINT"  7 [146] A D S R ALS GRAFIK DARSTELLEN" 300 GETR$:R=VAL(R$):IFR<1THEN300 310 ONRGOTO30000,10000,20000,40000,50000,55000,56000 320 GOTO300 5505 IFD<1THEN20 10000 REM" 10009 [158]39936:[153]"LOADSTOP":[151]53280,7:[151]53281,7:[141]10470 10010 T$[178]"*0*%0%" 10020 PL[178]12:[151]845,0:GE[178]25:P[178]5 10030 [129]Y[178]0[164]2:[151]835[170]Y,TV(Y[170]1):[151]838[170]Y,A(Y[170]1)[172]16[170]D(Y[170]1):[151]832[170]Y,WV(Y[170]1) 10040 [151]841[170]Y,S(Y[170]1)[172]16:[130]Y:[151]50176[170]24,15[170]64[170]32:[151]50176[170]23,1[170]15[172]16 10050 [151]847,16:[151]848,3:[151]849,32:[151]860,3:[151]866,1:[151]899,10 10060 [151]853,3:[151]855,3:[151]856,2:[151]867,250 10070 [151]863,3:[151]857,3:[151]850,10 10090 [151]851,1 10100 [135]T1:[139]T1[178]255[167][138] 10110 [139]T1[179][177]0[167][151]845,1:[151]846,T1[170]PL[170]12:[158]38912 10120 [135]T2 10130 [139]T2[178]1[167][151]50176[170]18,0:GE[178]40:[137]10150 10140 [139]T2[179][177]0[167][151]845,3:[151]846,T2[170]PL:[158]38912 10150 P[178]P[170]1:[139]P[178]7[167]P[178]1 10160 [139][202](T$,P,1)[178]"*"[167][151]845,2:[151]846,25:[158]38912 10170 [139][202](T$,P,1)[178]"%"[167][151]845,2:[151]846,50:[158]38912 10180 [129]W[178]1[164]GE:[130]W:[137]10100 10200 [131]19,00,28,24,00,00,31,00,28,19,00,00,19,00,00,24,00,00,00,00,00,19,00,00 10210 [131]20,00,21,17,00,00,24,00,26,12,00,00,24,00,27,07,00,00,26,00,00,19,00,00 10220 [131]20,00,21,17,00,00,24,00,26,12,00,00,24,00,27,07,00,00,26,00,24,19,00,00 10230 [131]21,00,24,05,00,00,24,05,00,00,00,00 10240 [131]21,07,00,12,00,00,19,00,00,24,00,00,00,00 10250 [131]28,24,00,00,31,00,28,19,00,00,19,00,00,24,00,00,00,00,00,19,00,00 10260 [131]20,00,21,17,00,00,24,00,26,12,00,00,24,00,27,07,00,00,26,00,00,19,00,00 10270 [131]20,00,21,17,00,00,24,00,26,12,00,00,24,00,27,07,00,00,26,00,24,19,00,00 10280 [131]21,00,24,12,00,00,00,00,00,24,00,00 10290 [131]00,00,00,36,00,00,00,00,00,48,00,00,00,00 10300 [131]28,24,00,00,28,00,00,19,00,00,28,00,00,24,00,00,00,00,00,19,00,00 10310 [131]24,00,29,17,00,00,00,00,29,12,00,00,00,00,29,17,00,00 10320 [131]24,00,26,12,00,00,28,00,00,24,00,00,00,00,00,19,00,00,00,00,00,24,00,00 10330 [131]00,00,00,12,00,00 10340 [131]24,00,29,17,00,00,00,00,29,12,00,00,00,00,29,17,00,00 10350 [131]24,00,26,12,00,00,00,00,28,24,00,00,27,00,26,19,00,00,25,00,00,13,00,00 10360 [131]00,00,00,09,00,00 10370 [131]21,00,26,17,00,00,28,00,29,21,00,00,30,00,31,23,00,00 10380 [131] 27,00,26,07,00,00,24,00,00,24,00,00,19,00,20,20,00,00,21,00 10390 [131]00,24,00,00,00,00,00,19,00,00 10400 [131]21,00,26,17,00,00,28,00,29,21,00,00,30,00,31,23,00,00 10410 [131] 27,00,26,07,00,00,24,00,00,24,00,00,00,00,31,24,31,00,31,00 10420 [131]30,24,30,00,30,00,29,24,29,00 10430 [131]29,00,28,24,00,00 10440 [131]00,00,00,00,00,00,00,01,00,00,00,00,00,00,00,00,00,00,00,00 10450 [131]00,00,00,00,00,00,00,01,00,00,00,00,00,00,00,00,00,00,00,00 10460 [131]00,00,00,00,00,00,00,01,00,00,00,00,00,00,00,00,00,00,255,255 10470 [143] MENUE 10480 [153]"LOADVERIFYBONNIE & CLYDE-SONG 10490 PRINT"WAVES EINGEBEN (+,- O.RETURN DRUECKEN!)":FORY=1TO3 10495 U(1)=2:U(2)=1:U(3)=3 10500 PRINT"GENERATOR";Y:W=U(Y):GOSUB60000:WV(Y)=W(W):NEXTY:PRINT"[158]" 10510 POKE198,3:POKE631,13:POKE632,13:POKE633,13 10530 PRINT"7,2,7[145]":INPUTTV(1),TV(2),TV(3) 10550 PRINT"00,00,00, 10,00,00, 00,2,3[145]" 10560 INPUTA(1),A(2),A(3),D(1),D(2),D(3),S(1),S(2),S(3) 11000 RETURN 20000 REM" 20006 [131]-1,-1 20009 [153]"LOADSTOP":[151]53280,6:[151]53281,6 20010 [158]39936:[141]20340 20020 [151]50176[170]24,15[170]32[170]64:PL[178]20 20030 [129]Y[178]0[164]2:[151]832[170]Y,WV(Y[170]1):[151]835[170]Y,TV(Y[170]1):[151]838[170]Y,A(Y[170]1)[172]16[170]D(Y[170]1) 20040 [151]841[170]Y,S(Y[170]1)[172]16:[130]Y 20050 [151]847,16:[151]848,16:[151]849,16:[143] EINSTELLUNGEN 20070 [151]853,2:[151]854,5:[151]855,4:[151]856,2 20080 [151]865,1:[151]899,12 20090 [151]50176[170]23,1:E[178]38912:J[178]845:D[178]846 20095 [140] 20096 [153]" BITTE WARTEN!!" 20097 [135]T,U:[139]T[179][177][171]1[167]20097 20098 [153]"ON " 20100 [151]860,1:[151]857,1:[151]867,150 20110 [135]T1:[139]T1[178]255[167]PL[178]PL[170]1:[140]:[138] 20120 [139]T1[179][177]0[167][151]J,1:[151]D,T1[170]PL[170]12:[158]E:[151]J,3:[151]D,T1[170]PL[170]36:[158]E 20130 [135]T2 20140 [139]T2[179][177]0[167][151]J,2:[151]D,T2[170]PL:[158]E 20150 [129]W[178]1[164]90:[130]W:[137]20110 20160 [143] MELODY 20170 [131]11,23,13,0,14,11,18,0,23,14,0,0 20180 [131]21,16,19,18,0,19,0,23,0,28,0,25 20190 [131]0,23,0,22,18,0,0,0,16,18,0,0 20200 [131]142,23,0,0,13,0,14,11,11,13,0,14 20210 [131]19,16,18,0,16,19,22,0,23,13,19,0 20220 [131]18,14,16,0,14,18,22,0,23,11,18,0 20230 [131]16,13,14,0,13,10,18,0,14,11,11,0 20240 [131]14,6,13,0,0,18,0,20,0,22,0,18 20250 [131]11,23,13,0,14,11,18,0,23,14,0,0 20260 [131]21,16,19,18,0,19,0,23,0,28,0,25 20270 [131]0,23,0,22,18,0,0,0,16,18,0,0 20280 [131]142,23,0,0,13,0,14,11,11,13,0,14 20290 [131]19,16,18,0,16,19,22,0,23,13,19,0 20300 [131]18,14,16,0,14,18,22,0,23,11,18,0 20310 [131]16,13,14,0,13,10,18,0,14,0,13,0 20320 [131]11,11,0,0,0,35,0,0,0,47,00,00 20330 [131]255,255 20340 [143] ANFANGSBILD 20350 [153][199](14);"LOADCONT (null)ENUETT 20360 PRINT" VON [202]OHANN [211]EBASTIAN [194]ACH" 20380 PRINT"[159][215]AVES EINGEBEN (+,- O.RETURN DRUECKEN!)":U(1)=3:U(2)=3:U(3)=1 20385 FORY=1TO3 20390 PRINT"GENERATOR";Y:W=U(Y):GOSUB60000:WV(Y)=W(W):NEXTY:PRINT""; 20400 POKE198,3:POKE631,13:POKE632,13:POKE633,13 20420 PRINT"7,7,7[145]":INPUTTV(1),TV(2),TV(3) 20440 PRINT"01,00,01, 03,00,03, 14,4,5[145]" 20450 INPUTA(1),A(2),A(3),D(1),D(2),D(3),S(1),S(2),S(3) 20460 RETURN 30000 REM" 30010 [129]X[178]0[164]24:[151]50176[170]X,0:[130]X:L[178]50176[170]24 30020 [129]Y[178]0[164]2:[151]832[170]Y,33:[151]835[170]Y,7:[151]838[170]Y,1[172]16[170]3:[151]841[170]Y,160:[130]Y 30030 [151]53280,7:[151]53281,7 30040 [151]844,1:[151]845,1:[151]846,0:[158]38912 30050 [151]847,0:[151]848,0:[151]849,0:[151]860,0 30060 H$[178]"":B$[178]"":[129]X[178]1[164]24:H$[178]H$[170]B$:[130]X:H$[178]H$[170]"FOR TASTE DRUECKEN!" 30070 A$[178]"LOADSTOP HAUPTDEMO WAIT" 30080 [153]A$ 30090 [153]"SIE HABEN SICHER SCHON GEMERKT, DASS DAS" 30100 [153]"ERZEUGEN VON TOENEN IN BASIC" 30110 [153]" 1. CLRMUEHSAM" 30120 [153]" 2. CLRVIEL ZU LANGSAM 30130 PRINT" 3. [156]AUFWENDIG" 30140 PRINT"IST. DESHALB GIBT ES NUN [149]SOUNDCONTROL 2," 30150 PRINT"D I E MUSIKPROGRAMMIERHILFE, MIT DER" 30160 PRINT"MAN NICHT NUR EINFACHE TOENE ERZEUGEN KANN." 30170 PRINTH$:WAIT198,1 30180 PRINTA$:PRINT"SIE HOEREN NORMALE TOENE, DIE SIE DURCH" 30190 PRINT"EINFACHE BASIC-PROGRAMME ERZEUGEN KOEN-" 30200 PRINT"NEN." 30210 PRINT"GLEICH MERKEN SIE DEN UNTERSCHIED!" 30220 PRINTH$:POKE198,0 30230 POKEL,15 30240 POKE838,5*16+10 30250 POKE846,INT(RND(TI)*20)+40:SYS38912 30260 FORW=1TO100:GETR$:IFR$<>""THEN30280 30270 NEXTW:GOTO30250 30280 POKEL,0:PRINTA$ 30290 PRINT"[156]NUN DAS GLEICHE IM SOGENANNTEN 30300 [153]" POLYPHONIC-EFFEKT. 30310 PRINT"DIE TOENE GLEITEN INEINANDER UEBER." 30320 PRINTH$ 30330 POKE838,1*16+12:POKE839,1*16+12:POKE840,1*16+12:POKEL,15:POKE845,0 30340 POKE841,0:POKE842,0:POKE843,0 30350 POKE846,INT(RND(TI)*20)+40:SYS38912 30360 FORW=1TO50:GETR$:IFR$<>""THEN30380 30370 NEXTW:GOTO30350 30380 PRINTA$:POKEL,0 30390 PRINT"NUN KOMMEN DIE SPEZIALEFFEKTE AN DIE REIHE." 30400 PRINT"[149]ALS ERSTES HOEREN SIE DEN GLIDE-EFFEKT." 30410 PRINT"DER TON WIRD, NACHDEM ER ANGESCHLAGEN" 30420 PRINT"WURDE, STETIG ERHOEHT ODER ERNIEDRIGT." 30430 PRINT"DIE GLIDE-GESCHWINDIGKEIT IST EBENFALLS EINSTELLBAR." 30440 PRINT"SOLCHE EFFEKTE WAREN IN NORMALEN BASIC- PROGRAMMEN NICHT MOEGLICH! 30450 [153]H$ 30460 [129]X[178]0[164]24:[151]50176[170]X,0:[130]X:[151]L,15 30470 [151]841,160:[151]842,160:[151]843,160 30480 [151]847,1:[151]848,3:[151]849,1 30490 [151]850,3:[151]851,6:[151]852,2 30500 [151]846,[181]([187](TI)[172]20)[170]40:[158]38912 30510 [129]W[178]1[164]100:[161]R$:[139]R$[179][177]""[167]30530 30520 [130]W:[137]30500 30530 [151]L,0:[153]A$ 30540 [153]"WIR KOMMEN NUN ZUR TONMODULATION. " 30550 [153]"VERIFYSIE HOEREN EINEN TON, DER LANGSAM MODU-" 30560 [153]"LIERT WIRD, D.H. DESSEN HOEHE LEICHT SCHWINGT." 30570 [153]"EINSTELLBAR IST DIE MODULIERGESCHWINDIG-"; 30580 [153]"KEIT UND DER MODULIERBEREICH (=DIE GROESSTE ABWEICHUNG). 30590 PRINTH$ 30600 FORX=0TO24:POKE50176+X,0:NEXTX:POKEL,15:POKE893,1 30610 POKE845,1:POKE846,50:POKE847,0:POKE853,4:POKE856,2:SYS38912 30620 FORW=1TO800:NEXTW:POKE847,16 30630 FORX=2TO8STEP.005:POKE856,X:GETR$:IFR$<>""THEN30650 30640 NEXTX:POKE198,0:WAIT198,1:POKE198,0 30650 POKEL,0:PRINTA$ 30660 PRINT"SIE SEHEN, WIE AUS EINEM EINFACHEN EIN" 30670 PRINT"CHARAKTERVOLLER TON WIRD." 30680 PRINT"[149]DOCH DAS IST LAENGST NICHT ALLES, WAS" 30690 PRINT"SOUNDCONTROL[149] ZU BIETEN HAT:" 30700 PRINT"AUCH DAS TASTVERHAELTNIS KANN MIT DEM" 30710 PRINT"GLIDE- ODER DEM MODULATIONSEFFEKT VER- SEHEN WERDEN." 30720 PRINT"SIE HABEN DAMIT PRAKTISCH UNBEGRENZTE TONMOEGLICHKEITEN!":PRINTH$ 30730 FORX=0TO24:POKE50176+X,0:NEXTX:POKEL,15 30740 POKE845,1:POKE838,1*16+12:POKE839,1*16+12:POKE840,1*16+12 30750 POKE841,0:POKE842,0:POKE843,0:POKE832,65:POKE847,4: 30760 POKE846,36:POKE861,INT(RND(TI)*5)+4:SYS38912 30770 FORW=1TO80:GETR$:IFR$<>""THEN30790 30780 NEXTW:GOTO30760 30790 POKEL,0:PRINTA$ 30800 PRINT"UND JETZT KOMMTS:" 30810 PRINT"DIE KLANGVARIATIONSVIELFALT VON 30820 [153]"SOUNDCONTROL 2 BIETET NOCH ETWAS." 30830 [153]"VERIFYSOGAR DEN FILTER KOENNEN SIE MODULIEREN" 30840 [153]"ODER GLIDEN LASSEN. AUCH HIER IST WIEDER"; 30850 [153]"ALLES EINSTELLBAR." 30860 [153]"CLRSOMIT KOENNEN SIE BELIEBTE SYNTHESIZER-" 30870 [153]"EFFEKTE WIE Z.B. WA-WA SPIELEND IN IHRE" 30880 [153]"BASIC-MUSIKSTUECKE EINBAUEN." 30890 [129]X[178]0[164]24:[151]50176[170]X,0:[130]X:[151]L,15[170]64[170]32 30900 [151]50176[170]23,1[170]15[172]16:[151]867,210:[151]860,3:[151]857,3 30910 [151]832,33:[151]838,1[172]16[170]3:[151]841,173:[151]845,1 30920 T1$[178]"3600400036004300360048004745434543414041403836" 30930 Q[178]1 30940 T[178][197]([202](T1$,Q,2)):[139]T[179][177]0[167][151]846,T:[158]38912 30950 [139]T[178]0[167][129]R[178]1[164]20:[130]R 30960 [129]E[178]1[164]75:[130]E 30970 Q[178]Q[170]2:[139]Q[179][195](T1$)[167]30940 30980 [151]50176[170]4,32:[153]H$:[151]198,0:[146]198,1:[151]198,0 30990 [153]A$:[151]L,0 31000 [153]"VIELEN DANK FUERS ZUSCHAUEN UND -HOEREN" 31010 [153]"STOPWRITTEN 1984 BY HOLGER GEHRMANN" 31020 [129]W[178]1[164]1000:[130]W:[138] 40000 [151]50257,020:[143] STATUS 40009 [141]40240 40010 [137]40070 40020 [158]40192:V[178]40448 40025 [151]56578,[194](56578)[176]3:[151]56576,([194](56576)[175]252)[176]2 40027 [151]189,200[171][194](V[170]X)[172].78125 40030 [129]X[178]0[164]255:[151]187,X:[151]188,200[171][194](V[170]X)[172].78125:[158]40368:[130] 40060 [142] 40070 [151]53272,21:[151]53265,155 40075 [151]56578,[194](56578)[176]3:[151]56576,([194](56576)[175]252)[176]3 40080 [151]53280,0:[151]53281,0:[129]X[178]0[164]24:[151]54272[170]X,0:[130]X:[151]54272[170]24,15 40090 [151]53265,27:[151]53272,21 40100 [153]"LOAD "; 40110 [153]" SPEICHEROSZILLOSKOP FUER OSZILLATOR 3 "; 40120 [153]" WAIT":Y[178]3 40150 [153]"** TONGENERATOR";Y 40153 [153]"FREQUENZ: CURSORTASTEN O.RETURN DRUECKEN";:W[178]200:[139]Y[178]3[167]W[178]10 40154 [141]61000:FQ[178]W:[153]"WAVEFORM: +, - O. RETURN DRUECKEN":W[178]1:[139]Y[178]3[167]W[178]3 40155 [141]63000:WV[178]W(W):TV[178]7 40170 V[178]54272[170]((Y[171]1)[172]7):[151]V[170]6,0:[151]V[170]4,0:[151]V[170]3,0 40180 [151]V[170]6,255:[151]V[170]4,WV:[151]V[170]3,TV:[151]V[170]1,FQ 40190 [139]WV[178]21[176]WV[178]23[176]WV[178]19[176]WV[178]35[176]WV[178]67[167]Y[178]Y[171]1:[137]40150 40200 [153]:[153]"LESEGENAUIGKEIT:" 40210 [153]"CURSORTASTEN O. RETURN DRUECKEN!":W[178]197:[141]61000:GE[178]W 40220 [151]40426,GE[170]55:[158]40416:[141]40020:[143] 40230 [146]198,1:[151]198,0:[138] 40240 [142] 50000 [143]" 50010 POKE53280,3:POKE53281,3 50015 PRINT"[147][144]FOLGENDE SYS- UND POKE-ADRESSEN KOENNEN" 50017 PRINT"SIE IN IHRE EIGENEN PROGRAMME AUFNEHMEN,"; 50018 PRINT"WENN SIE MIT SOUNDCONTROL ARBEITEN:" 50020 PRINT" SYS-ADRESSEN: [146]" 50030 PRINT"[144]SYS 39936 [149]SOUNDCONTROL ANSCHALTEN." 50040 PRINT" OBEN LINKS AUF DEM BILDSCHIRM"; 50050 PRINT" ERSCHEINT:'SOUNDCONTROL 2...'"; 50060 PRINT" (NICHT LOESCHBAR)" 50070 PRINT"[144]SYS 40148 [149]SOUNDCONTROL ABSCHALTEN" 50080 PRINT"[144]SYS 38912 [149]TON ERZEUGEN (NAEHERES" 50090 PRINT" SPAETER UNTER 'KOMMANDOS')" 50100 PRINT"[154] TASTE DRUECKEN!":POKE198,0:WAIT198,1:POKE198,0 50110 PRINT"[147] GRUNDEINSTELLUNGEN: [146]" 50120 PRINT"[144]832 [149]WELLENFORM VON STIMME 1" 50130 PRINT"[144]833 [149]WELLENFORM VON STIMME 2" 50140 PRINT"[144]834 [149]WELLENFORM VON STIMME 3" 50150 PRINT"[144]835 [149]TASTVERHAELTNIS VON STIMME 1" 50160 PRINT"[144]836 [149]TASTVERHAELTNIS VON STIMME 2" 50170 PRINT"[144]837 [149]TASTVERHAELTNIS VON STIMME 3" 50180 PRINT"[144]838 [149]ANSCHLAG UND ABSCHWELLEN, STIMME 1" 50190 PRINT"[144]839 [149]ANSCHLAG UND ABSCHWELLEN, STIMME 2" 50200 PRINT"[144]840 [149]ANSCHLAG UND ABSCHWELLEN, STIMME 3" 50210 PRINT"[144]841 [149]HALTEN UND AUSKLINGEN, STIMME 1" 50220 PRINT"[144]842 [149]HALTEN UND AUSKLINGEN, STIMME 2" 50230 PRINT"[144]843 [149]HALTEN UND AUSKLINGEN, STIMME 3" 50240 PRINT"NAEHERES ZU DEN MOEGLICHEN WELLENFORMEN,"; 50250 PRINT"ZU DEN FUNKTIONEN VON ANSCHLAG,ABSCHWEL-"; 50260 PRINT"LEN, HALTEN UND AUSKLINGEN UND DEM TAST-"; 50270 PRINT"VERHAELTNIS FINDEN SIE IM COMMODORE 64-" 50280 PRINT"ANLEITUNGSBUCH." 50290 PRINT"[154] TASTE DRUECKEN!":WAIT198,1:POKE198,0 50300 PRINT"[147] KOMMANDOS [146]" 50310 PRINT"[144]845 [149]TONGENERATOR-NUMMER (1-3) ODER BEI" 50320 PRINT" POLYPHON-EFFEKT = 0" 50330 PRINT"[144]846 [149]TON (ALS ZAHL VON 2-94). DIE ZAHL" 50340 PRINT" FUER DEN JEWEILIGEN TON FINDEN SIE" 50350 PRINT" IM COMMODORE 64-ANLEITUNGSBUCH" 50360 PRINT" AUF DEN SEITEN 158, 159. ALS ZAHL" 50370 PRINT" MUESSEN SIE DIE NUMMER IN DER" 50380 PRINT" ERSTEN SPALTE (UNTER NR.) EINGEBEN." 50390 PRINT"UM DEN TON DANN ZU ERZEUGEN, GEBEN SIE" 50400 PRINT"[144]SYS38912 [149](TON ERZEUGEN) EIN." 50410 PRINT"BEISPIEL:" 50420 PRINT"ES SOLL AUF STIMME 1 DER TON C ERZEUGT" 50430 PRINT"WERDEN:" 50440 PRINT"SYS39936:POKE845,1:[156]POKE846,36:SYS38912" 50450 PRINT"[149]ERKLAERUNG:" 50460 PRINT"SOUNDCONTROL EINSCHALTEN:STIMME 1:[156]TON C:TON ERZEUGEN" 50470 PRINT"[154] TASTE DRUECKEN!":WAIT198,1:POKE198,0 50480 PRINT"[147][149]BEMERKUNG:" 50490 PRINT"WENN OBEN LINKS (IN SCHWARZ) AUF DEM" 50500 PRINT"BILDSCHIRM 'SOUNDCONTROL 2...' STEHT," 50510 PRINT"IST DER SYS ZUM ANSCHALTEN VON SOUND-" 50520 PRINT"CONTROL NICHT ERLAUBT, NUR WENN DER TEXT"; 50530 PRINT"NICHT ZU SEHEN IST, ALSO NUR,WENN SOUND-"; 50540 PRINT"CONTROL NOCH NICHT ANGESCHALTET IST." 50550 PRINT"WENN DAS KOMMANDO ZUM ERZEUGEN EINES" 50560 PRINT"TONES GEGEBEN WIRD, WERDEN AUTOMATISCH" 50570 PRINT"DIE GRUNDEINSTELLUNGEN DER JEWEILIGEN" 50580 PRINT"STIMME UEBERNOMMEN." 50590 PRINT"DURCH DEN ANSCHALTSYS WERDEN SAEMTLICHE" 50600 PRINT"SOUNDCONTROL 2-SPEICHERZELLEN AUF EINEN" 50610 PRINT"STANDARD-WERT GEBRACHT, D.H. EIGENE EIN-"; 50620 PRINT"STELLUNGEN WERDEN GELOESCHT." 50630 PRINT"[154] TASTE DRUECKEN!":WAIT198,1:POKE198,0 50640 PRINT"[147] SPEZIALEFFEKTE [146]"; 50650 PRINT"[144]847 [149]EFFEKTEINSTELLUNGEN FUER STIMME 1" 50660 PRINT"[144]848 [149]EFFEKTEINSTELLUNGEN FUER STIMME 2" 50670 PRINT"[144]849 [149]EFFEKTEINSTELLUNGEN FUER STIMME 3" 50680 PRINT"[144]850 [149]GLIDEGESCHWINDIGKEIT FUER STIMME 1" 50690 PRINT"[144]851 [149]GLIDEGESCHWINDIGKEIT FUER STIMME 2" 50700 PRINT"[144]852 [149]GLIDEGESCHWINDIGKEIT FUER STIMME 3" 50710 PRINT"[144]853 [149]MODULATIONS-GESCHWINDIGKEIT FUER STIMME 1" 50720 PRINT"[144]854 [149]MODULATIONS-GESCHWINDIGKEIT FUER STIMME 2" 50730 PRINT"[144]855 [149]MODULATIONS-GESCHWINDIGKEIT FUER STIMME 3" 50740 PRINT"[144]856 [149]MODULATIONS-BEREICH" 50750 PRINT"[144]861 [149]TASTVERHAELTNIS-GLIDEGESCHW., ST.1" 50760 PRINT"[144]862 [149]TASTVERHAELTNIS-GLIDEGESCHW., ST.2" 50770 PRINT"[144]863 [149]TASTVERHAELTNIS-GLIDEGESCHW., ST.3" 50780 PRINT"[144]864 [149]TASTVERHAELTNIS-MODULATIONSGESCHW. STIMME 1" 50790 PRINT"[144]865 [149]TASTVERHAELTNIS-MODULATIONSGESCHW. STIMME 2" 50800 PRINT"[144]866 [149]TASTVERHAELTNIS-MODULATIONSGESCHW. STIMME 3" 50810 PRINT"[144]867 [149]TASTVERHAELTNIS-MODULATIONSBEREICH" 50820 PRINT"[154] TASTE DRUECKEN!":WAIT198,1:POKE198,0 50830 PRINT"[147][149]ANMERKUNG ZU DEN EFFEKTEINSTELLUNGEN:" 50840 PRINT"ADDIEREN SIE ZU DER ZAHL 0 ALLE ZAHLEN" 50850 PRINT"DER EFFEKTE, DIE SIE FUER DIE JEWEILIGE" 50860 PRINT"STIMME EINSCHALTEN WOLLEN:" 50870 PRINT" 1 [144]GLIDE NACH OBEN 50880 [153]" 3 STOPGLIDE NACH UNTEN" 50890 [153]" 4 STOPTASTVERHAELTNISGLIDE NACH OBEN" 50900 [153]" 8 STOPTASTVERHAELTNISGLIDE NACH UNTEN" 50910 [153]"16 STOPMODULATION (DER FREQUENZ) 50920 PRINT"32 [144]TASTVERHAELTNISMODULATION" 50930 PRINT"[149]DANN POKEN SIE DIESE ZAHL IN DIE EFFEKT-"; 50940 PRINT"EINSTELLUNGSSPEICHERZELLE DER JEWEILIGEN"; 50950 PRINT"STIMME (ALSO IN 847, 848 ODER 849)." 50960 PRINT"[149]NICHT VERGESSEN, DASS SIE DIESE EFFEKTE" 50970 PRINT"AUCH NOCH EINSTELLEN KOENNEN!" 50980 PRINT"[154] TASTE DRUECKEN!":WAIT198,1:POKE198,0 50990 PRINT"[147] FILTEREFFEKTE [146]" 51000 PRINT"[144]860 [149]FILTER-EFFEKTEINSTELLUNGEN 51010 [153]"STOP857 VERIFYFILTER-GLIDEGESCHWINDIGKEIT" 51020 [153]"STOP858 VERIFYFILTER-MODULATIONSGESCHWINDIGKEIT" 51030 [153]"STOP859 VERIFYFILTER-MODULATIONSBEREICH" 51040 [153]"STOP867 VERIFYFILTER-ANFANGSWERT" 51050 [153]"STOP875 VERIFYSTIMME (1-3) AUF FILTER" 51060 [153]"VERIFYANMERKUNG ZU:FILTEREFFEKTEINSTELLUNGEN" 51070 [153]"ADDIEREN SIE ZU DER ZAHL 0 ALLE ZAHLEN" 51080 [153]"DER EFFEKTE, DIE SIE EINSCHALTEN WOLLEN:" 51090 [153]"1 STOPFILTERGLIDE NACH OBEN" 51100 [153]"3 STOPFILTERGLIDE NACH UNTEN" 51110 [153]"4 STOPFILTER-MODULATION" 51120 [153]"DANN POKEN SIE DIE ZAHL IN DIE SPEICHER-"; 51130 [153]"ZELLE 860." 51140 [153]"CONT TASTE DRUECKEN!":[146]198,1:[151]198,0 51150 [153]"LOADVERIFYANMERKUNGEN:" 51160 [153]"VERIFYDER FILTER-ANFANGSWERT IST DER WERT, DEN"; 51170 [153]"DER FILTER NORMAL HABEN SOLL,VON DEM AUS"; 51180 [153]"ALSO DER GLIDE ODER DIE MODULATION AUS-" 51190 [153]"GEHEN SOLL." 51200 [153]"UM DEN FILTER EINZUSCHALTEN, MUESSEN SIE"; 51210 [153]"ABER ZUERST DEN FILTER IM SOUNDCHIP AK-"; 51220 [153]"TIVIEREN (FILTERMODUS UND FILTER EIN-" 51230 [153]"SCHALTEN, SIEHE COMMODORE 64-ANLEITUNGS-"; 51240 [153]"BUCH)." 51250 [153]" TASTE DRUECKEN!":[146]198,1:[151]198,0 51260 [153]"LOAD WICHTIG! WAIT" 51270 [153]"VERIFYWENN SOUNDCONTROL 2 EINGESCHALTET IST," 51280 [153]"BEFINDET SICH DAS SOUNDCHIP NICHT MEHR" 51290 [153]"IM ADRESSBEREICH 54272 ($D400), SONDERN" 51300 [153]"IM BEREICH 50176 ($C400). SOMIT BEKOM-" 51310 [153]"MEN SIE DIE MOEGLICHKEIT, DAS SOUNDCHIP" 51320 [153]"ERSTMALS ZU LESEN (PEEK), WAS SONST" 51330 [153]"NICHT MOEGLICH WAR." 51340 [153]"NICHT VERGESSEN: WENN OBEN AUF DEM" 51350 [153]"BILDSCHIRM 'SOUNDCONTROL 2...' STEHT," 51360 [153]"MUESSEN SIE BEI SOUNDCHIP-POKES DIE" 51370 [153]"ANFANGSADRESSE 50176 STATT 54272 BENUT-" 51380 [153]"ZEN." 51390 [153]"ENDE DER ANLEITUNG. 51400 PRINT"UM DIE FUNKTIONEN AUSZUPROBIEREN,WAEHLEN"; 51410 PRINT"SIE IM HAUPTMENUE NUMMER 6!" 51420 PRINT"[154] TASTE DRUECKEN!":WAIT198,1:POKE198,0 51430 RUN 55000 REM" 55010 [158]39936:[151]53280,1:[151]53281,1 55011 AN[178]1:AB[178]1:HA[178]14:T$[178]" X":[137]55020 55013 E[178]0:[139]GS[178]1[167]E[178]E[170]1 55014 [139]GS[178]2[167]E[178]E[170]3 55015 [139]TS[178]1[167]E[178]E[170]4 55016 [139]TS[178]2[167]E[178]E[170]12 55017 [139]MS[178]1[167]E[178]E[170]16 55018 [139]TM[178]1[167]E[178]E[170]32 55019 [151]847,E:[153]"";:[137]55030 55020 [153]"LOAD"; 55025 [153]"STOPTANTANTANTANTANTANTANTANTAN=TANTANTANTANTANTANTANTANTANTANTANTANTANTAN=TANTANTANTANTANTANTANTANTANTANTANTANTAN" 55030 [153]"WAVE:";[194](832);"STOP(null)OPEN TASTVERH.:";[194](835);"STOP(null) ANSCHLAG:";AN 55035 [139]Y[178]1[167][153]"";:[137]55060 55040 [153]" A STOP(null)OPEN B STOP(null) C 55050 PRINT"[144][192][192][192][192][192][192][192][192][178][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][178][192][192][192][192][192][192][192][192][192][192][192]" 55060 PRINT"TON:";T$;" [144][221][156] ABSCHWELLEN:";AB;" [144][221] [154]HALTEN:";HA;"[157] " 55065 IFY=1THENPRINT"";:GOTO55090 55070 PRINT"Q BIS ^ [144][221][156] D [144][221][154] F " 55080 PRINT"[144][192][192][192][192][192][192][192][192][177][178][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][219][192][192][192][192][192][192][192][192][192][192][192]" 55090 PRINT"[129]MOD: AUS";:IFMS=1THENPRINT"[157][157][157]AN "; 55100 PRINT" [144][221][149] MOD-GESCHW.:";PEEK(853);"[144][221][150]BEREICH:";PEEK(856) 55105 IFY=1THENPRINT"";:GOTO55130 55110 PRINT"[129] G [144][221][149] H [144][221][150] J " 55120 PRINT"[144][192][192][192][192][192][192][192][192][192][177][192][192][192][192][178][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192]" 55130 PRINT"[151]GLIDE: AUS ";:IFGS=1THENPRINT"[157][157][157][157][157]HOCH "; 55140 IFGS=2ORGS=3THENPRINT"[157][157][157][157][157][157]RUNTER"; 55150 PRINT" [144][221][152] GLIDE-GESCHW.:";PEEK(850) 55155 IFY=1THENPRINT"";:GOTO55180 55160 PRINT"[151] K [144][221][152] L 55170 [153]"STOPTANTANTANTANTANTANTANTANTANTANTANTANTANTAN>TANTANTANTANTANTANTAN=TANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN" 55180 [153]"PRINTTASTVERH.-GLIDE: AUS ";:[139]TS[178]1[167][153]"CMDCMDCMDCMDCMDHOCH "; 55190 [139]TS[178]2[176]TS[178]3[167][153]"CMDCMDCMDCMDCMDCMDRUNTER"; 55200 [153]"STOP(null)CONTTV-GLIDEG.:";[194](861) 55205 [139]Y[178]1[167][153]"";:[137]55230 55210 [153]"PRINT M STOP(null)CONT N " 55220 [153]"STOPTANTANTANTANTANTANTANTANTANTANTAN=TANTANTANTANTANTANTANTANTANTAN>TANTAN=TANTANTANTANTANTANTANTANTANTANTANTAN" 55230 [153]"TV-MOD: AUS";:[139]TM[178]1[167][153]"CMDCMDCMDAN "; 55240 [153]"STOP(null)CLRTV-MOD-G.:";[194](864);"STOP(null)SYSBEREICH:";[194](899) 55245 [139]Y[178]1[167][153]"";:[137]55320 55250 [153]" V STOP(null)CLR S STOP(null)SYS X 55260 PRINT"[144][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192]" 55265 IFY<>0THEN55320 55270 PRINT"[149]BENUTZEN SIE DIE 2. TASTENREIHE ZUM" 55280 PRINT"SPIELEN VON VERSCHIEDENEN TOENEN. UM DIE"; 55290 PRINT"EFFEKTE EINZUSTELLEN, DRUECKEN SIE DIE" 55300 PRINT"UNTEN IN DEN SCHWARZEN KAESTEN ANGEBEBE-"; 55310 PRINT"NEN TASTEN." 55315 PRINT"[154]MIT 'F1' WIEDER ZUM HAUPTMENUE!" 55320 Y=1:M$="QWERTYUIOP@*^" 55330 GETR$:IFR$=""THEN55330 55340 FORX=1TO13:IFR$<>MID$(M$,X,1)THENNEXTX:GOTO55500 55350 POKE845,1:POKE846,X+48:T$=" "+MID$(M$,X,1) 55355 SYS38912 55360 GOTO20 55500 D=ASC(R$)-64:IFD>12THEND=D-12:GOTO55520 55505 IFD<1THEN55540 55510 ONDGOTO55600,55610,55620,55630,20,55640,55650,55660,20,55670,55680,55690 55520 ONDGOTO55700,55710,20,20,20,20,55730,20,20,55720,20,55740 55525 IFR$="[133]"THENRUN 55530 GOTO55330 55540 GOTO55330 55600 IFPEEK(832)=33THENPOKE832,65:GOTO20 55602 IFPEEK(832)=65THENPOKE832,81:GOTO20 55603 IFPEEK(832)=81THENPOKE832,17:GOTO20 55604 IFPEEK(832)=17THENPOKE832,33:GOTO20 55609 GOTO20 55610 POKE835,PEEK(835)+1 55612 IFPEEK(835)=8THENPOKE835,0 55619 GOTO20 55620 AN=AN+1:POKE838,PEEK(838)+16:IFAN=10THENAN=0:POKE838,AB 55629 GOTO20 55630 AB=AB+1:POKE838,PEEK(838)+1:IFAB=10THENAB=0:POKE838,AN*16 55639 GOTO20 55640 HA=HA+1:POKE841,PEEK(841)+16:IFHA=15THENHA=0:POKE841,0 55649 GOTO20 55650 MS=MS+1:IFMS=2THENMS=0 55659 GOTO20 55660 POKE853,PEEK(853)+1:IFPEEK(853)=10THENPOKE853,1 55669 GOTO20 55670 POKE856,PEEK(856)+1:IFPEEK(856)=10THENPOKE856,2 55679 GOTO20 55680 GS=GS+1:IFGS=3THENGS=0 55689 GOTO20 55690 POKE850,PEEK(850)+1:IFPEEK(850)=10THENPOKE850,1 55699 GOTO20 55700 TS=TS+1:IFTS=3THENTS=0 55709 GOTO20 55710 POKE861,PEEK(861)+1:IFPEEK(861)=10THENPOKE861,1 55719 GOTO20 55720 TM=TM+1:IFTM=2THENTM=0 55729 GOTO20 55730 POKE864,PEEK(864)+1:IFPEEK(864)=10THENPOKE864,1 55739 GOTO20 55740 POKE899,PEEK(899)+1:IFPEEK(899)=10THENPOKE899,2 55749 GOTO20 56000 POKE50257,020:REM STATUS 56006 POKE53280,11:POKE53281,11 56010 PRINT"[147] [146]"; 56020 PRINT" ADSR-GRAFIK FUER OSZILLATOR 3 [146]"; 56030 PRINT" [146]"; 56040 PRINT"DATEN EINGEBEN(CURSORTASTEN O.RETURN DRUECKEN!) 56050 [153]"ANSCHLAG":W[178]13:[141]62000:A[178]W:[153]"ABSCHWELLEN":W[178]12:[141]62000:D[178]W 56070 [153]"HALTEN":W[178]9:[141]62000:S[178]W:[153]"ABSCHWELLEN":W[178]14:[141]62000:R[178]W 56080 AD[178]A[172]16[170]D:SR[178]S[172]16[170]R 56085 [129]X[178]0[164]24:[151]54272[170]X,0:[130]X:[151]54272[170]24,15 56090 [153]"DRUECKEN SIE NUN DIE SHIFTTASTE SOLANGE,"; 56100 [153]"BIS DER TON AUSKLINGEN SOLL (MIND.2 SEC)" 56110 [146]654,1:B(1)[178]32:B(2)[178]33:[151]189,199 56120 [158]40192:[151]56578,[194](56578)[176]3:[151]56576,([194](56576)[175]252)[176]2:S[178]54272 56130 [151]S[170]20,SR:[151]S[170]19,AD:[151]S[170]18,33:[151]S[170]15,20:W[178]S[170]28:H[178]S[170]18 56140 [129]X[178]0[164]255:T[178]200[171][194](W)[172].78125:[151]187,X:[151]188,T:[158]40368:[151]H,B([194](654)[170]1):[130] 56160 [151]198,0:[146]198,1:[151]198,0 56170 [138] 60000 W(1)[178]17:W(2)[178]33:W(3)[178]65:W(4)[178]81:W(5)[178]129:H[178]6 60010 [153] 60020 [153]"ON";W(W);"CMD " 60030 [161]R$:[139]R$[178]"+"[167]W[178]W[170]1:[139]W[178]H[167]W[178]1 60040 [139]R$[178]"-"[167]W[178]W[171]1:[139]W[178]0[167]W[178]H[171]1 60050 [139]R$[178][199](13)[167][142] 60060 [137]60020 61000 [153]:H[178]200 61010 [153]"ON";W;"CMD " 61020 [161]R$:[139]R$[178]""[167]W[178]W[170]1:[139]W[178]H[170]1[167]W[178]1 61030 [139]R$[178]""[167]W[178]W[171]1:[139]W[178]0[167]W[178]H 61040 [139]R$[178][199](13)[167][142] 61050 [137]61010 62000 H[178]15:[153]:[137]61010 63000 W(1)[178]17:W(2)[178]19:W(3)[178]21:W(4)[178]23:W(5)[178]33:W(6)[178]35:W(7)[178]65:W(8)[178]129 63010 H[178]9:[137]60010